gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\userList.asp
<!--#include file = "include/sysbase.asp"-->
<!-- #include file = "../include/config.asp" -->
<%
dim rsObj,strSQL
dim page, myKeyword, thisUrl, i, bShowAdd, sAddPage
page = Request.QueryString("page")
if (page = "" or IsEmpty(page)) then page = 1
thisUrl = "userList.asp?true=1"
Session("adminOldUrl") = thisUrl&"&page = "&page
set rsObj = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM Admins WHERE 1 = 1"
strSQL = strSQL&" ORDER by Account desc"
rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly
rsObj.pagesize = conMaxPerPage
%>
<html>
<head>
<title>管理员维护</title>
<meta http-equiv = "Content-Type" content = "text/html; charset = gb2312">
<link rel = "stylesheet" href = "include/main.css" type = "text/css">
<script language = Javascript>
<!--
function jumpTo(i){
if(i == 1){
this.document.location = "<%=thisUrl%>";}
if(i == 2){
this.document.location = "<%=thisUrl%>&page=<%=page-1%>";}
if(i == 3){
this.document.location = "<%=thisUrl%>&page=<%=page+1%>";}
if(i == 4){
this.document.location = "<%=thisUrl%>&page=<%=rsObj.pageCount%>";}
}
//-->
</script>
</head>
<body text = "#000000" leftmargin = "0" topmargin = "0">
<div align = "center"><br>
</div>
<table width = "80%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "4" align = "center">
<tr>
<form method = "post" action = "memberList.asp" name = "form1">
<td colspan = "2" bgcolor = "#4296E7" height = "28">
<div align = "center"><font color = "#FFFFFF">管理员维护</font></div>
</td>
</form>
</tr>
<tr bgcolor = "#5EA5E6">
<td width = "15%" nowrap>
<div align = "center"><font color = "#FFFFFF"> 管理员帐号</font></div>
</td>
<td width = "17%" nowrap>
<div align = "center"><font color = "#FFFFFF">管理员姓名</font></div>
</td>
</tr>
<%
i = 1
if not (rsObj.eof or err) then rsObj.move (page-1)*conMaxPerPage
do while not (rsObj.eof or err)
%>
<tr title = "点击查看具体信息" style = "cursor:hand" onClick = "Javascript:window.location = 'userModify.asp?userid=<%=rsObj("Account")%>'">
<td width = "15%">
<div align = "center"><%=rsObj("Account")%> </div>
</td>
<td width = "17%">
<div align = "center"><%=rsObj("name")%> </div>
</td>
</tr>
<%
i = i+1
if i>conMaxPerPage then exit do
rsObj.MoveNext
loop
%>
<tr bgcolor = "#4296E7">
<td colspan = 2>
<% bShowAdd = True
sAddPage = "userAdd.asp"
%>
<!-- #include file = "include/pageguide.asp"-->
<%
rsObj.Close()
set rsObj = Nothing
CloseConn()
%>
</td>
</tr>
</table>
</body>
</html>